#!/usr/bin/perl
#B_Showlex.pl
use warnings;
use strict;

my $one = 1;
{
   my $two = "two";
   my $one = "one";
}
